100 E$="TOO LONG !          ":OPEN1,0
110 BL$="                                       "
120 A1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
125 A0$="                          [221]"
130 A2$="    [176][192][192][192][192][192][192][192][192][192][192][174]          [221]"
140 A9$="    [221]          [221]          [221]"
150 A3$="    [173][192][192][192][192][192][192][192][192][192][192][189]          [221]"
160 A4$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
170 A5$="                           "
180 A6$="          ":AA$="         "
190 A7$="[221]  "
200 A8$="     [221]":B$="[221]"
220 DIMTA$(8),TB$(8)
230 FORI=1TO8:READTA$(I):NEXT
240 DATAF1 -,F2 -,F3 -,F4 -,F5 -,F6 -,F7 -,F8 -
300 PRINT"[147]","FUNCTION KEY OVERLAY"
330 PRINTTAB(8)"ENTER 20- CHARACTER TITLE"
335 PRINTTAB(11);
336 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:INPUT#1,T$
340 IFLEN(T$)>20THENPRINT:PRINTTAB(15)E$:GOSUB900:GOTO300
360 T1$=MID$(A5$,1,(27-LEN(T$))/2)+T$+MID$(A5$,1,(27-LEN(T$))/2)
365 IFLEN(T1$)=27THENT1$=MID$(T1$,1,26)
370 PRINT:PRINT:PRINTTAB(3)"ENTER 10 - CHARACTER KEY FUNCTION"
375 PRINT"   (ENTER 0 IF KEY HAS NO FUNCTION)"
380 FORI=1TO8
390 PRINT:PRINT:PRINT"  FOR "TA$(I)" KEY [204][175][175][175][175][175][175][175][175][186][145][157][157][157][157][157][157][157][157][157][157]";:INPUT#1,X$:PRINT
392 IFX$="0"THEN X$="NOT USED"
395 IFLEN(X$)>10THENPRINTTAB(15)"[145]"E$:GOSUB900:PRINT"[145]"BL$"[145][145]":GOTO390
400 X$=MID$(X$,1,10)
410 TB$(I)=X$+MID$(A6$,1,10-LEN(X$))
420 X$="" :PRINT
430 NEXT:GOSUB1200
440 PRINT
450 PRINT,"CHECK PRINTER READY"
451 OPEN4,4:PRINT"   PRESS SPACE BAR TO ADVANCE PAPER"
452 PRINT"       ANY OTHER KEY TO CONTINUE"
453 GETA$:IFA$=""THENGOTO453
454 IFA$=" "THEN950
540 PRINT#4,A1$:PRINT#4,A0$
550 PRINT#4,T1$+B$
570 PRINT#4,A0$
580 PRINT#4,A2$
600 FORI=1TO8
610 PRINT#4,TA$(I)+"[221] "+AA$+"[221]"+TB$(I)+"[221]"
620 IFI<>8THENPRINT#4,A9$
630 IFI=2ORI=6THENPRINT#4,A9$
640 NEXT
650 PRINT#4,A3$:PRINT#4,A0$
655 FORI=1TO4:PRINT#4,M$(I)+B$:NEXT
660 PRINT#4,A0$:PRINT#4,A4$:PRINT#4,
700 PRINT"       PRINT ANOTHER COPY (Y OR N)"
710 GETQ$:IFQ$=""THEN710
720 IFQ$="Y"THENGOSUB1000:GOTO540
730 IFQ$<>"N"THEN700
800 PRINT"[147]"TAB(14)"BYE BYE BYE":END
900 FORT=0TO1000:NEXT:RETURN
950 PRINT#4,"":FORT=0TO500:NEXT:A$="":GOTO453
1000 TX=TX+1:IFTX<2THENRETURN
1010 FORX=0TO3:PRINT#4,"":NEXT:TX=0:RETURN
1200 PRINT:PRINT:PRINT"  ENTER UP TO FOUR 20-CHARACTER NOTES"
1202 PRINT"     (ENTER 0 IF NO NOTE IS DESIRED)"
1205 FORI=1TO4
1206 PRINT:PRINTTAB(4)" NOTE "I;
1210 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:INPUT#1,M$(I):PRINT
1220 IFLEN(M$(I))>20THENPRINTTAB(12)"[145]"E$:GOSUB900:PRINT"[145]"BL$"[145][145]":GOTO1206
1230 IF M$(I)="0"THEN M$(I)=""
1235 M$(I)=MID$(A5$,1,(27-LEN(M$(I)))/2)+M$(I)+MID$(A5$,1,(27-LEN(M$(I)))/2)
1236 IFLEN(M$(I))=27THENM$(I)=MID$(M$(I),1,26)
1250 NEXT:RETURN